Internet Info 1994 March/Internet Info CD-ROM (Walnut Creek) (March 1994).iso/networking/terms/tipx/libacu/ventel.c

C/C++ Source or Header | 1991-10-11 | 4.8 KB | 235 lines

/*
 * Copyright (c) 1983 The Regents of the University of California.
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms are permitted
 * provided that the above copyright notice and this paragraph are
 * duplicated in all such forms and that any documentation,
 * advertising materials, and other materials related to such
 * distribution and use acknowledge that the software was developed
 * by the University of California, Berkeley.  The name of the
 * University may not be used to endorse or promote products derived
 * from this software without specific prior written permission.
 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
 * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
 * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
 */

#ifndef lint
static char sccsid[] = "@(#)ventel.c    5.2 (Berkeley) 9/13/88";
#endif /* not lint */

/*
 * Routines for calling up on a Ventel Modem
 * The Ventel is expected to be strapped for local echo (just like uucp)
 */
#include "tip.h"

#define    MAXRETRY    5

static    int sigALRM();
static    int timeout = 0;
static    jmp_buf timeoutbuf;

/*
 * some sleep calls have been replaced by this macro
 * because some ventel modems require two <cr>s in less than
 * a second in order to 'wake up'... yes, it is dirty...
 */
#define delay(num,denom) busyloop(CPUSPEED*num/denom)
#define CPUSPEED 1000000    /* VAX 780 is 1MIPS */
#define    DELAY(n)    { register long N = (n); while (--N > 0); }
busyloop(n) { DELAY(n); }

ven_dialer(num, acu)
    register char *num;
    char *acu;
{
    register char *cp;
    register int connected = 0;
    char *msg, *index(), line[80];

    /*
     * Get in synch with a couple of carriage returns
     */
    if (!vensync(FD)) {
        printf("can't synchronize with ventel\n");
#ifdef ACULOG
        logent(value(HOST), num, "ventel", "can't synch up");
#endif
        return (0);
    }
    if (boolean(value(VERBOSE)))
        printf("\ndialing...");
    fflush(stdout);
    ioctl(FD, TIOCHPCL, 0);
    echo("#k$\r$\n$D$I$A$L$:$ ");
    for (cp = num; *cp; cp++) {
        delay(1, 10);
        write(FD, cp, 1);
    }
    delay(1, 10);
    write(FD, "\r", 1);
    gobble('\n', line);
    if (gobble('\n', line))
        connected = gobble('!', line);
    ioctl(FD, TIOCFLUSH);
#ifdef ACULOG
    if (timeout) {
        sprintf(line, "%d second dial timeout",
            number(value(DIALTIMEOUT)));
        logent(value(HOST), num, "ventel", line);
    }
#endif
    if (timeout)
        ven_disconnect();    /* insurance */
    if (connected || timeout || !boolean(value(VERBOSE)))
        return (connected);
    /* call failed, parse response for user */
    cp = index(line, '\r');
    if (cp)
        *cp = '\0';
    for (cp = line; cp = index(cp, ' '); cp++)
        if (cp[1] == ' ')
            break;
    if (cp) {
        while (*cp == ' ')
            cp++;
        msg = cp;
        while (*cp) {
            if (isupper(*cp))
                *cp = tolower(*cp);
            cp++;
        }
        printf("%s...", msg);
    }
    return (connected);
}

ven_disconnect()
{

    close(FD);
}

ven_abort()
{

    write(FD, "\03", 1);
    close(FD);
}

static int
echo(s)
    register char *s;
{
    char c;

    while (c = *s++) switch (c) {

    case '$':
        read(FD, &c, 1);
        s++;
        break;

    case '#':
        c = *s++;
        write(FD, &c, 1);
        break;

    default:
        write(FD, &c, 1);
        read(FD, &c, 1);
    }
}

static int
sigALRM()
{

    printf("\07timeout waiting for reply\n");
    timeout = 1;
    longjmp(timeoutbuf, 1);
}

static int
gobble(match, response)
    register char match;
    char response[];
{
    register char *cp = response;
    char c;
    int (*f)();

    signal(SIGALRM, sigALRM);
    timeout = 0;
    do {
        if (setjmp(timeoutbuf)) {
            signal(SIGALRM, f);
            *cp = '\0';
            return (0);
        }
        alarm(number(value(DIALTIMEOUT)));
        read(FD, cp, 1);
        alarm(0);
        c = (*cp++ &= 0177);
#ifdef notdef
        if (boolean(value(VERBOSE)))
            putchar(c);
#endif
    } while (c != '\n' && c != match);
    signal(SIGALRM, SIG_DFL);
    *cp = '\0';
    return (c == match);
}

#define min(a,b)    ((a)>(b)?(b):(a))
/*
 * This convoluted piece of code attempts to get
 * the ventel in sync.  If you don't have FIONREAD
 * there are gory ways to simulate this.
 */
static int
vensync(fd)
{
    int already = 0, nread;
    char buf[60];

    /*
     * Toggle DTR to force anyone off that might have left
     * the modem connected, and insure a consistent state
     * to start from.
     *
     * If you don't have the ioctl calls to diddle directly
     * with DTR, you can always try setting the baud rate to 0.
     */
    ioctl(FD, TIOCCDTR, 0);
    sleep(1);
    ioctl(FD, TIOCSDTR, 0);
    while (already < MAXRETRY) {
        /*
         * After reseting the modem, send it two \r's to
         * autobaud on. Make sure to delay between them
         * so the modem can frame the incoming characters.
         */
        write(fd, "\r", 1);
        delay(1,10);
        write(fd, "\r", 1);
        sleep(2);
        if (ioctl(fd, FIONREAD, (caddr_t)&nread) < 0) {
            perror("tip: ioctl");
            continue;
        }
        while (nread > 0) {
            read(fd, buf, min(nread, 60));
            if ((buf[nread - 1] & 0177) == '$')
                return (1);
            nread -= min(nread, 60);
        }
        sleep(1);
        already++;
    }
    return (0);
}